home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 05 - 1989 / 05.07 Jul 89 / Window Menu Code / Common.p next >
Encoding:
Text File  |  1989-01-19  |  2.1 KB  |  93 lines  |  [TEXT/MPS ]
  1. (*******************************************************************
  2.     
  3.     Common.p
  4.     
  5.     Declarations for dynamic Window menu demo.
  6.     
  7.     (c) 1988, by Clifford Story & Attic Software
  8.     
  9. ********************************************************************
  10.     
  11.     This is a collection of constant and type declarations, most of
  12.     which are not used in this program.  I keep an odds-and-ends
  13.     unit of such things that I routinely include in all my programs;
  14.     it's too much trouble to sort out what parts are used in Windows
  15.     and what parts aren't.
  16.     
  17. *******************************************************************)
  18.  
  19. unit Common;
  20.     
  21. (******************************************************************)
  22.  
  23. interface
  24.     
  25. (*******************************************************************
  26.     
  27.     Key codes:
  28.         
  29. *******************************************************************)
  30.     
  31.     const
  32.     
  33.         enterkey                =    3;
  34.         backspace            =    8;
  35.         tabkey                =    9;
  36.         returnkey            =    13;
  37.         clearkey                =    27;
  38.         leftarrow            =    28;
  39.         rightarrow            =    29;
  40.         uparrow                =    30;
  41.         downarrow            =    31;
  42.         periodkey            =    46;
  43.     
  44. (*******************************************************************
  45.     
  46.     Dialog items:
  47.         
  48. *******************************************************************)
  49.         
  50.         themask                =    3;
  51.         
  52. (*******************************************************************
  53.     
  54.     Low-memory globals:
  55.         
  56. *******************************************************************)
  57.     
  58.         applscratch            =    $A78;
  59.         bootdrive            =    $210;
  60.         curappname            =    $910;
  61.         curdirstore            =    $398;
  62.         currenta5            =    $904;
  63.         findername            =    $2E0;
  64.         fsfcblen                =    $3F6;
  65.         grayrgn                =    $9EE;
  66.         iaznotify            =    $33C;
  67.         mbarheight            =    $BAA;
  68.         menuflash            =    $A24;
  69.         resload                =    $A5E;
  70.         rom85                    =    $28E;
  71.         sfsavedisk            =    $214;
  72.         sysmap                =    $A58;
  73.         windowlist            =    $9D6;
  74.     
  75. (*******************************************************************
  76.     
  77.     Standard types:
  78.         
  79. *******************************************************************)
  80.  
  81.     type
  82.         
  83.         logical                =    boolean;
  84.         long                    =    longint;
  85.         
  86.         shortpointer        =    ^integer;
  87.         longpointer            =    ^long;
  88.     
  89. (******************************************************************)
  90.  
  91. end.
  92.     
  93. (******************************************************************)